home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM 1995 Fall / PD-ROM F95.toast / Utilities / Text Utils / Alpha 5.81 ƒ / Tcl / SystemCode / codeWarrier.tcl < prev    next >
Encoding:
Text File  |  1994-06-12  |  1.4 KB  |  61 lines  |  [TEXT/ALFA]
  1. #================================================================================
  2. #
  3. #             CodeWarrier Interaction
  4. #
  5. # Metrowerks currently has an incomplete appleevent interface. 
  6. # Apple events can be used to direct CodeWarrier to compile
  7. # or add individual files, make the project, etc. However, 
  8. # there is currently no provision to report specific errors
  9. # back to the controller.
  10. #
  11. #================================================================================
  12.  
  13.  
  14. set CWCLASS        MMPR
  15.  
  16.  
  17. proc codeWarrierProc {menu item} {
  18.     cw$item
  19. }
  20.     
  21. proc cwswitchTo {} {
  22.     global CODEWARRIER
  23.     checkCw
  24.     switchTo $CODEWARRIER
  25. }
  26.  
  27. proc cwmake {} {cwDo Make}
  28. proc cwrun {} {cwDo RunP}
  29. proc cwupdate {} {cwDo UpdP}
  30.  
  31. proc cwDo {param} {
  32.     global CODEWARRIER CWCLASS 
  33.     checkCw
  34.     switchTo $CODEWARRIER
  35.     set res [AEBuild -q -t 6000 $CODEWARRIER $CWCLASS $param]
  36. }
  37.  
  38.  
  39. proc cwadd {} {
  40.     global CODEWARRIER CWCLASS
  41.     checkCw
  42.     switchTo $CODEWARRIER
  43.     set fname [lindex [winNames -f] 0]
  44.     set res [AEBuild -q $CODEWARRIER $CWCLASS Comp "----" [concat {[alis(«} [coerce TEXT $fname -x alis] {»)]}]]
  45. }
  46.  
  47. proc cwcompile {} {
  48.     global CODEWARRIER CWCLASS
  49.     checkCw
  50.     switchTo $CODEWARRIER
  51.     set fname [lindex [winNames -f] 0]
  52.     set res [AEBuild -q $CODEWARRIER $CWCLASS Comp "----" [concat {[alis(«} [coerce TEXT $fname -x alis] {»)]}]]
  53. }
  54.  
  55.  
  56. proc checkCw {} {
  57.     global CODEWARRIER
  58.     set CODEWARRIER [checkRunning "MW C/C++ 68K v1.0" MMCC cwPath]
  59. }
  60.  
  61.